home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / v cisle / pcwkillall / pcwKillEmAll.exe / Tools / pcwKillOutlookExpress.vbs < prev    next >
Encoding:
Text File  |  2006-09-18  |  9.8 KB  |  202 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. On Error Resume Next
  5. windir=umgebung("windir")
  6. userprofile=umgebung("userprofile")
  7.  
  8. NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  9. Programs = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
  10. dllcache = MyShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\SFCDllCacheDir")
  11.  
  12. If not NT = "" Then
  13.     ret = MsgBox("Pro ·plnΘ odstran∞nφ Outlook Expressu si musφte zajistit p°φstup ke Konzole pro zotavenφ. " &_
  14.     "P°ipravte si instalaΦnφ CD Windows a v Φlßnku v Φasopise si p°eΦt∞te, jak mßte postupovat a jak spustφte Konzolu pro zotavenφ pozd∞ji. " & vbcr &_
  15.     "Mß se nynφ pokraΦovat?", vbYesNo+vbInformation, "Odstranit Outlook Express")
  16.     If Ret = vbNo Then wscript.quit
  17. Else
  18.     ret = MsgBox("Mß se nynφ odstranit Outlook Express?", vbYesNo+vbInformation, "Odstranit Outlook Express")
  19.     If Ret = vbNo Then wscript.quit
  20. End if
  21.  
  22. If dllcache = "" Then
  23.     dllcache = windir & "\System32\dllcache"
  24. End If
  25. If Right(dllcache, 1) = "\" Then dllcache = Mid(dllcache, 1, Len(dllcache)-1)
  26.  
  27. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKoe.BAT", 2, True)
  28. If not NT="" Then
  29.     Killer.Writeline "Set AllowAllPaths = True"
  30. End If
  31. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoe.dll")) Then
  32.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoe.dll" & chr(34)
  33. End If
  34. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msoeres.dll")) Then
  35.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msoeres.dll" & chr(34)
  36. End If
  37. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\msimn.exe")) Then
  38.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\msimn.exe" & chr(34) 
  39. End If
  40. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oeimport.dll")) Then
  41.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oeimport.dll" & chr(34)
  42. End If
  43. If (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oemig50.exe")) Then
  44.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oemig50.exe" & chr(34) 
  45. End If
  46. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\oemiglib.dll")) Then
  47.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\oemiglib.dll" & chr(34) 
  48. End If
  49. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\setup50.exe")) Then
  50.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\setup50.exe" & chr(34)
  51. End If
  52. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab32.dll")) Then
  53.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab32.dll" & chr(34)
  54. End If
  55. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab32res.dll")) Then
  56.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab32res.dll" & chr(34)
  57. End If
  58. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wab.exe")) Then
  59.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wab.exe" & chr(34)
  60. End If
  61. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabfind.dll")) Then
  62.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabfind.dll" & chr(34)
  63. End If
  64. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabimp.dll")) Then
  65.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabimp.dll" & chr(34)
  66. End If
  67. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\wabmig.exe")) Then
  68.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\wabmig.exe" & chr(34)
  69. End If
  70. if (myfiles.FileExists(windir & "\SERVICEPACKFILES\I386\directdb.dll")) Then
  71.     Killer.Writeline "del " & chr(34) & windir & "\SERVICEPACKFILES\I386\directdb.dll" & chr(34)
  72. End If
  73. if (myfiles.FileExists(dllcache & "\msoe.dll")) Then
  74.     Killer.Writeline "del " & chr(34) & dllcache & "\msoe.dll" & chr(34)
  75. End If
  76. if (myfiles.FileExists(dllcache & "\msoeres.dll")) Then
  77.     Killer.Writeline "del " & chr(34) & dllcache & "\msoeres.dll" & chr(34)
  78. End If
  79. If (myfiles.FileExists(dllcache & "\msimn.exe")) Then
  80.     Killer.Writeline "del " & chr(34) & dllcache & "\msimn.exe" & chr(34) 
  81. End If
  82. if (myfiles.FileExists(dllcache & "\oeimport.dll")) Then
  83.     Killer.Writeline "del " & chr(34) & dllcache & "\oeimport.dll" & chr(34)
  84. End If
  85. If (myfiles.FileExists(dllcache & "\oemig50.exe")) Then
  86.     Killer.Writeline "del " & chr(34) & dllcache & "\oemig50.exe" & chr(34) 
  87. End If
  88. if (myfiles.FileExists(dllcache & "\oemiglib.dll")) Then
  89.     Killer.Writeline "del " & chr(34) & dllcache & "\oemiglib.dll" & chr(34) 
  90. End If
  91. if (myfiles.FileExists(dllcache & "\setup50.exe")) Then
  92.     Killer.Writeline "del " & chr(34) & dllcache & "\setup50.exe" & chr(34)
  93. End If
  94. if (myfiles.FileExists(dllcache & "\wab32.dll")) Then
  95.     Killer.Writeline "del " & chr(34) & dllcache & "\wab32.dll" & chr(34)
  96. End If
  97. if (myfiles.FileExists(dllcache & "\wab32res.dll")) Then
  98.     Killer.Writeline "del " & chr(34) & dllcache & "\wab32res.dll" & chr(34)
  99. End If
  100. if (myfiles.FileExists(dllcache & "\wab.exe")) Then
  101.     Killer.Writeline "del " & chr(34) & dllcache & "\wab.exe" & chr(34)
  102. End If
  103. if (myfiles.FileExists(dllcache & "\wabfind.dll")) Then
  104.     Killer.Writeline "del " & chr(34) & dllcache & "\wabfind.dll" & chr(34)
  105. End If
  106. if (myfiles.FileExists(dllcache & "\wabimp.dll")) Then
  107.     Killer.Writeline "del " & chr(34) & dllcache & "\wabimp.dll" & chr(34)
  108. End If
  109. if (myfiles.FileExists(dllcache & "\wabmig.exe")) Then
  110.     Killer.Writeline "del " & chr(34) & dllcache & "\wabmig.exe" & chr(34)
  111. End If
  112. if (myfiles.FileExists(dllcache & "\directdb.dll")) Then
  113.     Killer.Writeline "del " & chr(34) & dllcache & "\directdb.dll" & chr(34)
  114. End If
  115. If (myfiles.FileExists(userprofile & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Spustit Outlook Express.LNK")) Then
  116.     Killer.Writeline "del " & chr(34) & userprofile & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Outlook Express starten.LNK" & chr(34)
  117. End If
  118. if (myfiles.FileExists(windir & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Spustit Outlook Express.LNK")) Then
  119.     loesch = Myfiles.Deletefile(windir & "\Data aplikacφ\Microsoft\Internet Explorer\Quick Launch\Spustit Outlook Express.LNK", TRUE)
  120. End If
  121. If (myfiles.FileExists(userprofile & "\Nabφdka Start\Programy\Outlook Express.LNK")) Then
  122.     Killer.Writeline "del " & chr(34) & userprofile & "\Nabφdka Start\Programy\Outlook Express.LNK" & chr(34)
  123. End If
  124. if (myfiles.FileExists(userprofile & "\Plocha\Outlook Express.LNK")) Then
  125.     Killer.Writeline "del " & chr(34) & userprofile & "\Plocha\Outlook Express.LNK" & chr(34)
  126. End If
  127. if (myfiles.FileExists(windir & "\Nabφdka Start\Programy\Outlook Express.LNK")) Then
  128.     loesch = Myfiles.Deletefile(windir & "\Nabφdka Start\Programy\Outlook Express.LNK", TRUE)
  129. End If
  130. If (myfiles.FileExists(windir & "\Plocha\Outlook Express.LNK")) Then
  131.     loesch = Myfiles.Deletefile(windir & "\Plocha\Outlook Express.LNK", TRUE)
  132. End If
  133.  
  134. hardfolder = Programs & "\Outlook Express"
  135. Set festverz = myfiles.GetFolder(hardfolder)
  136. Set ffiles = festverz.Files
  137. For Each file in ffiles
  138.         If NT = "" Then
  139.             ords = festverz.ShortPath
  140.             Killer.Writeline "del " & chr(34) & ords & "\" & file.Shortname & Chr(34)
  141.         Else
  142.             Killer.Writeline "del " & chr(34) & festverz & "\" & file.name & Chr(34)
  143.         End if
  144. Next
  145. If (myfiles.FolderExists(programs & "\Outlook Express")) Then
  146.     If NT="" Then
  147.         Killer.Writeline "rd " & chr(34) & ords & chr(34)
  148.     Else
  149.         Killer.Writeline "rd " & chr(34) & programs & "\Outlook Express" & chr(34)
  150.     End If
  151. End If
  152. Killer.Close
  153.  
  154. Set Killer = MyFiles.OpenTextFile(windir & "\pcwKoe.BAT", 1, False)
  155. Do While Not Killer.AtEndOfStream
  156.      Zeile = Killer.ReadLine
  157.      Nummer = Killer.Line-1
  158. Loop
  159. Killer.close
  160.  
  161. loesch = Myfiles.Deletefolder(Programs & "\Common Files\Microsoft Shared\Stationery", True)
  162. If not NT="" Then
  163.     loesch = Myfiles.Deletefolder(userprofile & "\Data aplikacφ\Identities", True)
  164.     loesch = Myfiles.Deletefolder(userprofile & "\Mφstnφ nastavenφ\Data aplikacφ\Identities", True)
  165.     loesch = Myfiles.Deletefolder(userprofile & "\Data aplikacφ\Microsoft\Address Book", True)
  166.     loesch = Myfiles.Deletefolder(userprofile & "\Mφstnφ nastavenφ\Data aplikacφ\Microsoft\Address Book", True)
  167. Else
  168.     loesch = Myfiles.Deletefolder(windir & "\Data aplikacφ\Identities", True)
  169.     loesch = Myfiles.Deletefolder(windir & "\Data aplikacφ\Microsoft\Address Book", True)
  170. End If
  171.  
  172. Set RegKill = MyFiles.OpenTextFile(windir & "\pcwRk.REG", 2, True)
  173. RegKill.Writeline "REGEDIT4"
  174. RegKill.Writeline ""
  175. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express]"
  176. RegKill.Writeline ""
  177. RegKill.Writeline "[-HKEY_LOCAL_MACHINE\Software\Microsoft\WAB]"
  178. RegKill.Writeline ""
  179. RegKill.Writeline "[-HKEY_CURRENT_USER\Identities]"
  180. RegKill.Writeline ""
  181. RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Outlook Express]"
  182. RegKill.Writeline ""
  183. RegKill.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\WAB]"
  184. RegKill.Writeline ""
  185. RegKill.Writeline "[-HKEY_LOCAL_MACHINE \Software\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}]"
  186. RegKill.Writeline ""
  187. RegKill.Writeline "[-HKEY_LOCAL_MACHINE \Software\Microsoft\Active Setup\Installed Components\{7790769C-0471-11D2-AF11-00C04FA35D02}]"
  188. RegKill.Writeline ""
  189. RegKill.Close
  190.  
  191. Einlesen=MyShell.Run("regedit.exe /s " & windir & "\pcwRk.REG", 0, True)
  192. loesch = Myfiles.Deletefile(windir & "\pcwRk.REG", True)
  193.  
  194. If NT = "" Then
  195.     Wo = "v re₧imu MS-DOS"
  196. Else
  197.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", 1, "REG_DWORD"
  198.     Wo = "v Konzole pro zotavenφ"
  199. End If
  200.  
  201. Ende = MsgBox("Restartujte poΦφtaΦ " & Wo & " a spus¥te dßvkov² soubor " & windir & "\pcwKoe.BAT, kter² odstranφ zbylΘ " & Nummer & " soubory Outlook Expressu.", 64, "Skript PC WORLDu pro odstran∞nφ Outlook Expressu: Hotovo")
  202.